; Music of Future Demo (1996) (Koopa Troopa of Exodus) (Joshua)
; Ripped by Megachur the 18/10/2008

	write "FUTUREDE.BIN"

music_date_rip	equ &12a8
music_adr	equ &1800
first_theme	equ 0	; 0 -> 0
last_theme	equ 0

	read "music_header_v1_0.asm"

; org #1820
; db ">>FABULAND<< by Joshua from c64 "

	jp l1853	; init music
	jp l18b8	; play music
	jr l1842
.l1808
	ld b,#f4
	out (c),d
	ld bc,#f6c0
	out (c),c
	xor a
	out (c),a
	ld b,#f4
	out (c),e
	ld bc,#f680
	out (c),c
	out (c),a
	ret
	db #3e,#3e,#46,#41,#42,#55,#4c,#41
	db #4e,#44,#3c,#3c,#20,#62,#79,#20
	db #4a,#6f,#73,#68,#75,#61,#20,#66
	db #72,#6f,#6d,#20,#63,#36,#34,#20
.l1841 equ $ + 1
.l1840
	db #00,#00
.l1842
	ld b,#06
	ld hl,l1eda
.l1847
	ld (hl),a
	inc hl
	djnz l1847
	ld a,#fd
	ld (hl),a
	inc hl
	ld (hl),a
	inc hl
	ld (hl),a
	ret
;
.init_music
.l1853
;
	add a
	add a
	add a
	add #15
	ld l,a
	adc #22
	sub l
	ld h,a
	ld a,(hl)
	ld (l1840),a
	inc hl
	ld a,(hl)
	and #0f
	ld c,a
	ld b,#03
	ld ix,l1ef5
.l186c
	ld (ix-#45),c
	ld a,#01
	ld (ix-#4e),a
	ld a,#08
	ld (ix-#42),a
	ld (ix-#3f),a
	inc hl
	ld a,(hl)
	ld (ix-#4b),a
	inc hl
	ld a,(hl)
	ld (ix-#48),a
	inc ix
	djnz l186c
	xor a
	ld (l1841),a
	ld hl,l1eb9
	ld de,l1eba
	ld bc,#0068
	ld (hl),a
	ldir
	ld b,#f6
	in c,(c)
	push bc
	ld de,#0d00
.l18a2
	call l1808
	dec d
	jp p,l18a2
	ld a,#3f
	ld (l18f0),a
	ld e,a
	ld d,#07
	call l1808
	pop bc
	out (c),c
	ret
;
.play_music
.l18b8
;
	ld hl,l1841
	dec (hl)
	jp p,l18c3
	ld a,(l1840)
	ld (hl),a
.l18c3
	ld b,#f6
	in c,(c)
	push bc
	ld ix,l1ef5
	call l18f9
	inc ix
	call l18f9
	inc ix
	call l18f9
.l18da equ $ + 1
	ld de,#0d00
	bit 4,e
	jr z,l18e3
	call l1808
.l18e4 equ $ + 1
.l18e3
	ld de,#0b00
	call l1808
.l18ea equ $ + 1
	ld de,#0600
	call l1808
.l18f0 equ $ + 1
	ld de,#073f
	call l1808
	pop bc
	out (c),c
	ret
.l18f9
	ld a,(ix-#36)
	or a
	jr nz,l190e
	ld hl,l1840
	ld a,(l1841)
	cp (hl)
	jr nz,l190e
	dec (ix-#4e)
	jp z,l1b9a
.l190e
	ld a,(ix-#15)
	or a
	jr z,l1937
	dec (ix-#1b)
	jr nz,l1937
	rra
	sbc a
	or #01
	add (ix-#45)
	cp #ff
	jr z,l1933
	cp #10
	jr z,l1933
	ld (ix-#45),a
	ld a,(ix-#18)
	ld (ix-#1b),a
	jr l1937
.l1933
	xor a
	ld (ix-#15),a
.l1937
	ld a,(ix+#24)
	or a
	jp z,l19c0
	dec (ix+#27)
	jp p,l19be
	ld b,a
	ld a,(ix+#2a)
	ld (ix+#27),a
	ld a,(ix+#21)
	ld e,a
	ld d,#00
	ld hl,l1d67
	add hl,de
	add hl,de
	cp (ix-#3c)
	jr nc,l1998
	ld a,(ix+#1b)
	add b
	ld c,a
	ld (ix+#1b),a
	ld a,(ix+#1e)
	adc #00
	ld b,a
	ld (ix+#1e),a
	ld a,c
	add (ix-#2a)
	ld c,a
	ld a,b
	adc (ix-#27)
	cp (hl)
	jr c,l19be
	dec hl
	ld a,c
	cp (hl)
	jr c,l19be
.l197d
	ld a,(ix+#21)
	ld (ix-#3c),a
	ld a,(hl)
	ld (ix-#2a),a
	inc hl
	ld a,(hl)
	ld (ix-#27),a
	xor a
	ld (ix+#24),a
	ld (ix+#1b),a
	ld (ix+#1e),a
	jr l19be
.l1998
	ld a,(ix+#1b)
	sub b
	ld c,a
	ld (ix+#1b),a
	ld a,(ix+#1e)
	sbc #00
	ld b,a
	ld (ix+#1e),a
	ld a,c
	add (ix-#2a)
	ld c,a
	ld a,b
	adc (ix-#27)
	cp (hl)
	dec hl
	jr c,l197d
	jr nz,l19be
	ld a,c
	cp (hl)
	jr c,l197d
	jr z,l197d
.l19be
	jr l19f6
.l19c0
	ld a,(ix+#12)
	or a
	jr z,l19f6
	ld b,a
	ld c,a
	ld a,(ix+#0f)
	or a
	jr z,l19d3
	dec (ix+#0f)
	jr l19f6
.l19d3
	rl b
	sbc a
	ld b,a
	ld a,(ix+#1b)
	add c
	ld (ix+#1b),a
	ld a,(ix+#1e)
	adc b
	ld (ix+#1e),a
	dec (ix+#15)
	jp p,l19f6
	xor a
	sub c
	ld (ix+#12),a
	ld a,(ix+#18)
	ld (ix+#15),a
.l19f6
	ld a,(ix-#5d)
	cp #02
	jr nz,l1a5d
	ld a,(ix+#06)
	add a
	jr z,l1a5d
	add #4f
	ld l,a
	adc #22
	sub l
	ld h,a
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld l,(ix+#09)
	ld h,#00
	add hl,hl
	add hl,de
	ld a,(hl)
	cp #ff
	jr nz,l1a23
	inc hl
	ld l,(hl)
	ld h,#00
	ld (ix+#09),l
	add hl,hl
	add hl,de
	ld a,(hl)
.l1a23
	ld (l18da),a
	inc hl
	rla
	jr c,l1a48
	rla
	jr nc,l1a53
	ld a,(l18e4)
	add (hl)
	ld (l18e4),a
	inc hl
	inc hl
	ld a,(hl)
	inc (ix+#0c)
	cp (ix+#0c)
	jr nz,l1a5d
	xor a
	ld (ix+#0c),a
	inc (ix+#09)
	jr l1a5a
.l1a48
	ld a,(hl)
	add (ix-#3c)
	add #28
	ld l,a
	adc #1e
	sub l
	ld h,a
.l1a53
	ld a,(hl)
	or a
	jr z,l1a5a
	ld (l18e4),a
.l1a5a
	inc (ix+#09)
.l1a5d
	ld a,(ix+#00)
	add a
	jr z,l1a8d
	add #3b
	ld l,a
	adc #22
	sub l
	ld h,a
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld l,(ix+#03)
	ld h,#00
	add hl,hl
	add hl,de
	ld a,(hl)
	cp #ff
	jr nz,l1a83
	inc hl
	ld l,(hl)
	ld h,#00
	ld (ix+#03),l
	add hl,hl
	add hl,de
	ld a,(hl)
.l1a83
	and (ix-#0f)
	ld (ix-#09),a
	inc hl
	ld a,(hl)
	bit 7,a
.l1a8d
	push af
	jr nz,l1a93
	add (ix-#3c)
.l1a93
	and #7f
	cp #61
	jr c,l1a9b
	ld a,#60
.l1a9b
	add a
	add #66
	ld l,a
	adc #1d
	sub l
	ld h,a
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	inc (ix+#03)
	pop af
	jr nz,l1ab4
	ld e,(ix+#1b)
	ld d,(ix+#1e)
	add hl,de
.l1ab4
	ld a,(ix-#5d)
	add a
	ld d,a
	ld e,l
	call l1808
	inc d
	ld e,h
	call l1808
.l1ac2
	ld a,(ix-#45)
	sub (ix-#12)
	xor #0f
	ld e,a
	call l1aea
	and #f0
	rra
	rra
	rra
	rra
	sub e
	jr nc,l1ad8
	xor a
.l1ad8
	bit 7,(ix-#09)
	jr z,l1ae0
	or #10
.l1ae0
	ld e,a
	ld a,(ix-#5d)
	add #08
	ld d,a
	jp l1808
.l1aea
	ld a,(ix-#09)
	ld b,a
	and #1f
	jr z,l1afd
	ld (l18ea),a
	ld a,(l18f0)
	and (ix-#54)
	jr l1b03
.l1afd
	ld a,(l18f0)
	or (ix-#51)
.l1b03
	bit 5,b
	jr z,l1b1a
	or (ix-#57)
	ld (l18f0),a
	ld a,#08
	ld (ix-#42),a
	ld (ix-#3f),a
	ld (ix-#0c),a
	jr l1b20
.l1b1a
	and (ix-#5a)
	ld (l18f0),a
.l1b20
	bit 6,b
	jr z,l1b55
	bit 7,(ix-#0c)
	jr nz,l1b62
	ld a,(ix-#06)
	and #f0
	rra
	rra
	rra
	add #58
	ld l,a
	adc #1e
	sub l
	ld h,a
	ld a,(ix-#42)
	add (hl)
	ld (ix-#42),a
	inc hl
	ld a,(ix-#3f)
	adc (hl)
	ld (ix-#3f),a
	ret nc
	ld a,#f8
	ld (ix-#42),a
	ld (ix-#3f),a
	ld (ix-#0c),a
	ret
.l1b55
	ld a,(ix-#03)
	and #0f
	ld c,a
	ld a,#08
	ld (ix-#0c),a
	jr l1b6f
.l1b62
	ld a,(ix-#06)
	and #0f
	ld c,a
	ld a,(ix-#03)
	and #f0
	or #08
.l1b6f
	ld b,a
	cp (ix-#3f)
	ret nc
	ld a,c
	add a
	add #78
	ld l,a
	adc #1e
	sub l
	ld h,a
	ld a,(ix-#42)
	sub (hl)
	ld (ix-#42),a
	inc hl
	ld a,(ix-#3f)
	sbc (hl)
	ld (ix-#3f),a
	jr c,l1b90
	cp b
	ret nc
.l1b90
	ld a,b
	or #08
	ld (ix-#3f),b
	ld (ix-#42),b
	ret
.l1b9a
	ld c,(ix-#4b)
	ld b,(ix-#48)
	ld l,(ix-#33)
	ld h,#00
	add hl,bc
	ld a,(hl)
	bit 7,a
	jr z,l1bf6
	cp #ff
	jr nz,l1bbc
	inc hl
	ld l,(hl)
	ld (ix-#33),l
	ld h,#00
	add hl,bc
.l1bb7
	ld a,(hl)
	bit 7,a
	jr z,l1bf6
.l1bbc
	cp #c0
	jr c,l1beb
	cp #fc
	jr c,l1be0
	cp #fe
	jr nz,l1bcc
	ld (ix-#36),a
	ret
.l1bcc
	ld (ix-#15),a
	inc hl
	ld a,(hl)
	ld (ix-#1b),a
	ld (ix-#18),a
	inc (ix-#33)
	inc (ix-#33)
	inc hl
	jr l1bb7
.l1be0
	and #3f
	ld (ix-#24),a
	inc (ix-#33)
	inc hl
	jr l1bb7
.l1beb
	and #3f
	dec a
	ld (ix-#2d),a
	inc (ix-#33)
	inc hl
	ld a,(hl)
.l1bf6
	add a
	add #1d
	ld l,a
	adc #22
	sub l
	ld h,a
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld l,(ix-#30)
	ld h,#00
	add hl,bc
.l1c07
	ld a,(hl)
	cp #60
	jp c,l1cb6
	cp #80
	jr nc,l1c1c
	and #1f
	ld (ix-#39),a
	inc (ix-#30)
	inc hl
	jr l1c07
.l1c1c
	cp #f8
	jr nc,l1c2b
	and #7f
	ld (ix-#1e),a
	inc (ix-#30)
	inc hl
	jr l1c07
.l1c2b
	cp #fa
	jr nz,l1c40
	ld a,(ix-#0f)
	xor #40
	ld (ix-#0f),a
	and (ix-#09)
	ld (ix-#09),a
	jp l1d3b
.l1c40
	cp #fb
	jr nz,l1c51
	ld a,(ix-#21)
	cpl
	ld (ix-#21),a
	inc (ix-#30)
	inc hl
	jr l1c07
.l1c51
	cp #fc
	jr nz,l1c65
	inc hl
	ld a,(hl)
	xor #0f
	ld (ix-#12),a
	inc (ix-#30)
	inc (ix-#30)
	inc hl
	jr l1c07
.l1c65
	cp #fd
	jp nz,l1c8d
	inc hl
	ld a,(hl)
	ld (ix+#24),a
	inc hl
	ld a,(hl)
	ld (ix+#27),a
	ld (ix+#2a),a
	inc hl
	ld a,(hl)
	add (ix-#24)
	and #7f
	ld (ix+#21),a
	inc (ix-#30)
	inc (ix-#30)
	inc (ix-#30)
	jp l1d3b
.l1c8d
	cp #f8
	jr nz,l1ca0
	inc hl
	ld a,(hl)
	ld (l18e4),a
	inc (ix-#30)
	inc (ix-#30)
	inc hl
	jp l1c07
.l1ca0
	cp #f9
	jp nz,l1d3b
	inc hl
	ld a,(hl)
	or #10
	ld (l18da),a
	inc (ix-#30)
	inc (ix-#30)
	inc hl
	jp l1c07
.l1cb6
	add (ix-#24)
	and #7f
	ld (ix-#3c),a
	add a
	add #66
	ld l,a
	adc #1d
	sub l
	ld h,a
	ld e,(hl)
	ld (ix-#2a),e
	inc hl
	ld d,(hl)
	ld (ix-#27),d
	ld a,(ix-#21)
	or a
	jr nz,l1d3b
	xor a
	ld (ix+#03),a
	ld (ix+#09),a
	ld (ix+#0c),a
	ld (ix+#1b),a
	ld (ix+#1e),a
	dec a
	ld (ix-#0f),a
	ld a,(ix-#39)
	add a
	add a
	add a
	add #c5
	ld l,a
	adc #21
	sub l
	ld h,a
	ld a,(hl)
	ld (ix-#06),a
	inc hl
	ld a,(hl)
	ld (ix-#03),a
	inc hl
	ld a,(hl)
	ld (ix+#00),a
	inc hl
	ld a,(hl)
	ld (ix+#06),a
	inc hl
	ld a,(hl)
	ld (ix+#0f),a
	inc hl
	ld a,(hl)
	ld (ix-#09),a
	bit 5,a
	jr nz,l1d28
	push bc
	ld a,(ix-#5d)
	add a
	ld d,a
	call l1808
	inc d
	ld e,(ix-#27)
	call l1808
	pop bc
.l1d28
	inc hl
	ld a,(hl)
	neg
	ld (ix+#12),a
	jr z,l1d3b
	inc hl
	ld a,(hl)
	ld (ix+#18),a
	srl a
	ld (ix+#15),a
.l1d3b
	ld a,(ix-#1e)
	ld (ix-#4e),a
	inc (ix-#30)
	ld l,(ix-#30)
	ld h,#00
	add hl,bc
	ld a,(hl)
	cp #ff
	jp nz,l1ac2
	xor a
	ld (ix-#30),a
	ld (ix-#21),a
	dec (ix-#2d)
	jp p,l1ac2
	inc (ix-#2d)
	inc (ix-#33)
	jp l1ac2
.l1d67 equ $ + 1
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw #0000
	db #78,#70,#6a,#64,#60,#5a,#54,#50
	db #4c,#48,#44,#40,#3c,#38,#35,#32
	db #30,#2d,#2a,#28,#26,#24,#22,#20
	db #1e,#1c,#1b,#19,#18,#16,#15,#14
	db #13,#12,#11,#10,#0f,#0e,#0d,#0c
	db #0c,#0b,#0a,#0a,#09,#09,#08,#08
	db #ff,#ff,#ff,#ff,#ff,#ff,#54,#d5
	db #bc,#86,#6c,#5b,#4c,#4b,#00,#40
	db #34,#33,#7c,#14,#3c,#0a,#68,#06
	db #20,#05,#b4,#01,#08,#01,#a4,#00
	db #ff,#ff,#54,#d5,#ac,#6a,#1c,#47
	db #e8,#2c,#78,#1e,#18,#19,#54,#15
	db #10,#11,#d4,#06,#68,#03,#24,#02
	db #b4,#01,#90,#00,#58,#00,#38,#00
	db #00,#01,#02,#fe,#fd,#fb,#01,#02
	db #04,#f7,#ef,#df,#08,#10,#20,#01
	db #01,#01,#00,#00,#00,#01,#02,#03
	db #0f,#0f,#0f,#08,#08,#08,#08,#08
.l1eba equ $ + 2
.l1eb9 equ $ + 1
	db #08,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1eda equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1ef5 equ $ + 5
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1f22 equ $ + 2
	db #00,#00,#00,#01,#02,#01,#03,#04
	db #05,#04,#06,#01,#02,#01,#03,#ff
.l1f31 equ $ + 1
	db #00,#07,#08,#09,#0a,#0a,#08,#09
.l1f3a equ $ + 2
	db #ff,#00,#0b,#0c,#0b,#0d,#0b,#0e
	db #0b,#0d,#0b,#0d,#0b,#0d,#0b,#0e
.l1f4a equ $ + 2
	db #ff,#00,#60,#82,#35,#9e,#fd,#02
	db #00,#37,#82,#35,#33,#8c,#32,#90
	db #2f,#82,#33,#be,#fd,#02,#00,#35
	db #82,#30,#9e,#fd,#02,#00,#32,#82
	db #2f,#2d,#8c,#2b,#90,#2f,#82,#2e
	db #9e,#fd,#02,#00,#30,#61,#88,#13
	db #0f,#84,#0c,#0c,#0c,#88,#13,#ff
.l1f80
	db #60,#84,#37,#37,#37,#88,#3a,#37
	db #81,#3a,#87,#fd,#02,#00,#3c,#84
	db #37,#8c,#3a,#81,#35,#87,#fd,#02
	db #00,#37,#81,#33,#87,#fd,#02,#00
	db #35,#88,#33,#33,#84,#30,#81,#32
	db #9b,#fd,#02,#00,#33,#82,#30,#33
	db #84,#37,#81,#35,#87,#fd,#02,#00
.l1fbf equ $ + 7
	db #37,#88,#33,#35,#84,#33,#ff,#81
	db #35,#8b,#fd,#02,#00,#37,#88,#33
	db #81,#34,#87,#fd,#02,#00,#35,#88
	db #33,#9c,#37,#a8,#fd,#01,#00,#3a
.l1fd9 equ $ + 1
	db #ff,#81,#35,#93,#fd,#02,#00,#37
	db #81,#30,#8f,#fd,#02,#00,#32,#c0
.l1fea equ $ + 2
	db #30,#ff,#62,#90,#3c,#84,#3c,#3c
	db #3c,#8c,#3a,#88,#37,#35,#33,#35
	db #84,#35,#33,#35,#33,#37,#94,#35
	db #63,#81,#3a,#89,#fd,#01,#00,#3c
	db #86,#fa,#62,#88,#3f,#84,#3e,#8c
.l2017 equ $ + 7
	db #3f,#88,#3e,#3f,#84,#3e,#ff,#8c
	db #3f,#88,#41,#46,#84,#46,#46,#88
.l2026 equ $ + 6
	db #46,#84,#4b,#a4,#4a,#ff,#8c,#3c
	db #88,#3a,#37,#84,#37,#37,#88,#38
	db #84,#3a,#37,#61,#88,#13,#0f,#84
.l203e equ $ + 6
	db #0c,#0c,#0c,#88,#13,#ff,#64,#c0
	db #30,#65,#30,#a0,#32,#2f,#c0,#34
.l2049 equ $ + 1
	db #ff,#64,#c0,#30,#65,#30,#2f,#a0
.l2055 equ $ + 5
	db #66,#33,#65,#32,#ff,#64,#c0,#30
.l205e equ $ + 6
	db #65,#30,#2f,#64,#30,#ff,#64,#c0
	db #30,#65,#30,#2f,#a0,#67,#2e,#65
.l206a equ $ + 2
	db #32,#ff,#68,#8c,#18,#84,#24,#88
	db #69,#00,#84,#68,#16,#17,#8c,#18
	db #84,#24,#88,#69,#00,#84,#68,#16
	db #17,#8c,#1d,#84,#29,#88,#69,#00
	db #84,#68,#1b,#1c,#8c,#1d,#84,#29
.l2094 equ $ + 4
	db #88,#69,#00,#ff,#84,#68,#1b,#1c
	db #8c,#1a,#84,#26,#88,#69,#00,#84
	db #68,#18,#19,#8c,#1a,#84,#26,#88
	db #69,#00,#84,#68,#18,#19,#8c,#18
	db #84,#24,#88,#69,#00,#84,#68,#16
	db #90,#17,#8c,#24,#84,#16,#17,#ff
.l20c0
	db #84,#68,#1f,#20,#8c,#1f,#84,#2b
	db #88,#69,#00,#84,#68,#1d,#1e,#8c
	db #1f,#84,#2b,#88,#69,#00,#84,#68
	db #1d,#1e,#8c,#1b,#84,#27,#88,#69
	db #00,#84,#68,#19,#1a,#8c,#1a,#84
	db #26,#88,#69,#00,#84,#68,#18,#19
.l20f1 equ $ + 1
	db #ff,#84,#68,#1f,#20,#8c,#1f,#84
	db #2b,#88,#69,#00,#84,#68,#1d,#1e
	db #8c,#1f,#84,#2b,#88,#69,#00,#84
	db #68,#1d,#1e,#8c,#18,#84,#24,#88
	db #69,#00,#84,#68,#16,#17,#8c,#18
	db #84,#24,#88,#69,#00,#84,#68,#16
.l2122 equ $ + 2
	db #17,#ff,#84,#68,#1f,#20,#8c,#1f
	db #84,#2b,#88,#69,#00,#84,#68,#1d
	db #1e,#8c,#1f,#84,#2b,#88,#69,#00
	db #84,#68,#1d,#1e,#8c,#1b,#84,#27
	db #88,#69,#00,#84,#68,#19,#1a,#8c
	db #1a,#84,#26,#88,#69,#00,#84,#68
.l2157 equ $ + 7
.l2153 equ $ + 3
	db #18,#19,#ff,#40,#00,#ff,#00,#41
	db #ff,#00,#16,#00,#14,#00,#10,#00
.l2165 equ $ + 5
	db #0c,#01,#ff,#ff,#05,#40,#00,#40
.l216f equ $ + 7
	db #00,#40,#00,#00,#00,#ff,#03,#40
.l2173 equ $ + 3
	db #00,#ff,#00,#40,#00,#40,#00,#40
	db #03,#40,#03,#40,#07,#40,#07,#ff
.l2181 equ $ + 1
	db #00,#40,#00,#40,#00,#40,#03,#40
.l218f equ $ + 7
	db #03,#40,#08,#40,#08,#ff,#00,#40
	db #00,#40,#00,#40,#04,#40,#04,#40
.l219d equ $ + 5
	db #07,#40,#07,#ff,#00,#40,#00,#40
	db #00,#40,#05,#40,#05,#40,#09,#40
.l21ab equ $ + 3
	db #09,#ff,#00,#41,#ff,#40,#00,#40
.l21b5 equ $ + 5
	db #00,#00,#00,#ff,#03,#41,#ff,#40
.l21bf equ $ + 7
	db #a8,#00,#a2,#01,#ff,#ff,#03,#98
	db #f4,#00,#00,#ff,#01,#40,#b8,#01
	db #00,#08,#20,#01,#03,#00,#f8,#02
	db #00,#00,#20,#00,#00,#34,#b9,#03
	db #00,#00,#20,#00,#00,#30,#d7,#04
	db #00,#00,#20,#00,#00,#44,#a0,#05
	db #00,#00,#40,#00,#00,#44,#a0,#06
	db #00,#00,#40,#00,#00,#44,#a0,#07
	db #00,#00,#40,#00,#00,#44,#a0,#08
	db #00,#00,#40,#00,#00,#40,#e9,#09
	db #00,#00,#20,#02,#02,#00,#f6,#0a
	db #00,#00,#20,#00,#00
	dw #0f01,l1f22,l1f31,l1f3a
	dw l1f4a,l1f80,l1fbf,l1fd9
	dw l1fea,l2017,l2026,l203e
	dw l2049,l2055,l205e,l206a
	dw l2094,l20c0,l20f1,l2122
	dw l2153,l2157,l2165,l216f
	dw l2173,l2181,l218f,l219d
	dw l21ab,l21b5,l21bf
	
;
.game_name
	db "Future Demo",0
.game_year
	db "1996",0
.game_publisher
	db "Koopa Troopa of Exodus",0
.music_author
	db "Joshua",0
.music_comment
	db ">>FABULAND<< by Joshua from c64",0

	read "music_end_v1_0.asm"
